home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / mactool / eventmon / AppleEvent Monitor / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-11-05  |  1.5 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2969</cardID>
  8.     <listID>2191</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>448</width>
  14.         <height>64</height>
  15.     </cardSize>
  16.     <script>on appleevent class,EventID,Sender
  17. global monitor
  18. play boing
  19. lock screen
  20. lock messages
  21. go Monitor
  22. request appleEvent data
  23. put it into fld "data"
  24. request appleevent return id
  25. put it into cd fld "RID"
  26. put class into cd fld "class"
  27. put  EventId into cd fld "ID"
  28. put sender into cd fld "sender"
  29. go back
  30. unlock screen
  31. unlock messages
  32. pass appleevent
  33. end appleevent
  34.  
  35. on openstack
  36. global Monitor
  37. if Monitor is not empty then exit openstack
  38. put the long name of this stack into Monitor
  39. start using this stack
  40. put "" into cd fld "class"
  41. put "" into cd fld "ID"
  42. put "" into cd fld "sender"
  43. put "" into cd fld "RID"
  44. put "" into fld "data"
  45. end openstack
  46.  
  47. on closestack
  48. global monitor
  49. if monitor is not the long name of this stack then pass closestack
  50. stop using this stack
  51. end closestack
  52.  
  53. on mousedown
  54. global monitor
  55. if monitor is not the long name of this stack then pass mousedown
  56. show cd fld "About"
  57. wait until the mouse is up
  58. hide cd fld "About"
  59. end mousedown
  60. </script>
  61.     <background id="2571" file="background_2571.xml" name="" />
  62.     <card id="2969" file="card_2969.xml" marked="false" name="" owner="2571" />
  63. </stack>
  64.